100 M=100
110 CALL CLEAR
120 CALL COLOR(11,5,1)
130 CALL SCREEN(11)
140 FOR I=1 TO 8
150 CALL COLOR(I,16,1)
160 NEXT I
170 CALL CHAR(42,"FFFF0000FFFF0000")
180 CALL COLOR(2,7,1)
190 CALL CHAR(105,"7E8199A1A199817E")
200 RESTORE 2970
210 SINUSITE=0
220 PRINT "   *** * *** *** *** ***       *     *    *  *   *         *** * ***  *  **  *      "
230 PRINT "     * *   *  *  *   *           * *   *  *  *   *         *** * ***  *  *** ***     "
240 PRINT : :"   BY BRENTARO LUCA i       ": :"   VERONA 24/7/1984": :"   PREMI UN TASTO.. ": :
250 CALL KEY(3,K,S)
260 READ A
270 CALL SOUND(150,A,2)
280 SINUSITE=SINUSITE+1
290 IF SINUSITE=60 THEN 300 ELSE 320
300 RESTORE 2970
310 SINUSITE=0
320 IF S=0 THEN 250
330 FOR I=1 TO 10
340 CALL CHAR(42,"0000FFFF0000FFFF")
350 FOR U=1 TO 10
360 NEXT U
370 CALL CHAR(42,"FFFF0000FFFF0000")
380 FOR U=1 TO 8
390 NEXT U
400 NEXT I
410 CALL CLEAR
420 CALL CHAR(128,"FF81BDBDADBDBDBD")
430 CALL CHAR(136,"00003C3C3C0000FF")
440 CALL CHAR(137,"00040C1C3C383020")
450 CALL CHAR(138,"FFFEFCF8F0E0C080")
460 CALL CHAR(139,"FFFFFFFFFFFFFFFF")
470 CALL CHAR(104,"FFFEFCF8F0E0C080")
480 CALL CHAR(105,"FFFFFFFFFFFFFFFF")
490 CALL CHAR(120,"0103070F1F3F7FFF")
500 CALL CHAR(121,"FFFFFFFFFFFFFFFF")
510 CALL CHAR(152,"00003C7FFE3C0000")
520 CALL CHAR(112,"00003C7E7E3C0000")
530 CALL CHAR(144,"18017E9818242241")
540 CALL CHAR(145,"18003C5A9918181C")
550 CALL COLOR(2,11,11)
560 CALL COLOR(13,2,16)
570 CALL COLOR(14,8,5)
580 CALL COLOR(15,5,11)
590 CALL COLOR(16,2,11)
600 CALL COLOR(10,6,8)
610 CALL COLOR(11,7,11)
620 CALL COLOR(12,13,5)
630 INPUT "CHI E' CHE VUOLE GIOCARE?                               ":A$
640 FOR I=1 TO 200
650 NEXT I
660 CALL CHAR(97,"0103070F1F3F7FFF")
670 CALL CHAR(98,"80C0E0F0F8FCFEFF")
680 CALL CHAR(99,"FF7F3F1F0F070301")
690 CALL CHAR(100,"FFFEFCF8F0E0C080")
700 CALL CHAR(101,"3C5EDF9F9FDF7E3C")
710 CALL COLOR(9,13,11)
720 CALL CLEAR
730 PRINT A$: :"VUOI LE ISTRUZIONI<S O N>?  "
731 CALL SOUND(100,1300,1)
740 CALL KEY(3,K,S)
750 IF S=0 THEN 740
760 CALL HCHAR(23,30,K)
770 FOR I=1 TO 200
780 NEXT I
790 IF K=83 THEN 2660
800 IF K=78 THEN 810 ELSE 740
810 SCHERMI=0
820 RIGHETTO=5
830 NINETTO=RIGHETTO
840 CALL CLEAR
850 VITE=3
860 PUNTI=0
870 COLOR=0
880 BOOM=0
890 CALL SCREEN(5)
900 RIGHETTO=NINETTO
910 PRINT "iiiiiiiiiiiiiiiiiiiii       iiiiiiiiiiiiiiiiiiiii       iiiiiiiiiiiihiii  SCORE"
920 PRINT "iiiiiiihhiii       iiiiiihiii ";PUNTI;TAB(1);"iiiiiiiii       "
930 PRINT "iiiiiiiii       iihiii  MAX Syyyyy       "
940 PRINT "yyxyyy ";M;TAB(1);"yyxxyyyy       yyxxyyyyyyyyyyy       "
950 IF INT(SCHERMI/5)=SCHERMI/5 THEN 960 ELSE 1000
960 IF SCHERMI<>0 THEN 970 ELSE 1050
970 NINETTO=RIGHETTO
980 RIGHETTO=4
990 GOTO 3000
1000 IF INT(SCHERMI/3)=SCHERMI/3 THEN 1010 ELSE 1050
1010 IF SCHERMI<>0 THEN 1020 ELSE 1050
1020 NINETTO=RIGHETTO
1030 RIGHETTO=RIGHETTO-2
1040 GOTO 3050
1050 PRINT "yyyyyyyyyyyyyyyyyyyyy  LIFESyyyyyyyyyyyyyyyyyyyyy       +*******************+ ";VITE
1060 PRINT "+*******************+       +*******************+       +*******************+  COLOR"
1070 PRINT "+*******************+       +*******************+  X X X+*******************+       "
1080 PRINT "yyyyyyyyyyyyyyyyyyyyy       yyyyyyyyyyyyyyyyyyyyy       "
1090 RANDOMIZE
1100 FOR I=1 TO RIGHETTO
1110 B=INT(RND*17)+5
1120 A=INT(RND*7)+15
1130 CALL GCHAR(A,B,X)
1140 IF X<>42 THEN 1110
1150 CALL HCHAR(A,B,152)
1160 A=INT(RND*7)+15
1170 B=INT(RND*17)+5
1180 CALL GCHAR(A,B,X)
1190 IF X<>42 THEN 1160
1200 CALL HCHAR(A,B,112)
1210 NEXT I
1220 FOR I=0 TO 26 STEP 5
1230 CALL SOUND(-300,400,I,800,I,-1,I)
1240 CALL SOUND(-300,380,I,880,I)
1250 NEXT I
1260 CALL HCHAR(18,4,145)
1270 FOR I=1 TO 1000
1280 NEXT I
1290 CALL COLOR(16,11,11)
1300 CALL COLOR(11,11,11)
1310 NI=18
1320 TI=4
1330 RI=0
1340 MO=0
1350 GOTO 1600
1360 NI=NI+RI
1370 TI=TI+MO
1380 CALL GCHAR(NI,TI,X)
1390 IF X<>42 THEN 1870
1400 CALL HCHAR(NI-RI,TI-MO,42)
1410 CALL HCHAR(NI,TI,144)
1420 FOR I=1 TO 20
1430 NEXT I
1440 CALL HCHAR(NI,TI,145)
1450 FOR I=1 TO 10
1460 NEXT I
1470 GOTO 1600
1480 RI=0
1490 MO=1
1500 GOTO 1360
1510 RI=0
1520 MO=-1
1530 GOTO 1360
1540 RI=1
1550 MO=0
1560 GOTO 1360
1570 RI=-1
1580 MO=0
1590 GOTO 1360
1600 CALL KEY(3,K,S)
1610 IF K=68 THEN 1480
1620 IF K=83 THEN 1510
1630 IF K=88 THEN 1540
1640 IF K=69 THEN 1570
1650 IF K=13 THEN 1660 ELSE 1600
1660 IF COLOR=3 THEN 1600
1670 CALL SOUND(-100,1300,2)
1680 CALL COLOR(11,7,11)
1690 CALL COLOR(16,2,11)
1700 FOR I=1 TO 100
1710 NEXT I
1720 COLOR=COLOR+1
1730 ON COLOR GOTO 1740,1770,1800
1740 CALL HCHAR(20,26,32)
1750 GOSUB 1830
1760 GOTO 1600
1770 CALL HCHAR(20,28,32)
1780 GOSUB 1830
1790 GOTO 1600
1800 CALL HCHAR(20,30,32)
1810 GOSUB 1830
1820 GOTO 1600
1830 CALL COLOR(16,11,11)
1840 CALL COLOR(11,11,11)
1850 RETURN
1860 GOTO 1600
1870 IF X=152 THEN 1920
1880 IF X=112 THEN 2110
1890 NI=NI-RI
1900 TI=TI-MO
1910 GOTO 1600
1920 CALL SOUND(100,110,2,220,2,440,2)
1930 CALL COLOR(11,7,11)
1940 CALL COLOR(16,2,11)
1950 FOR I=1 TO 16
1960 CALL COLOR(15,I,11)
1970 FOR G=1 TO 20
1980 NEXT G
1990 CALL SOUND(-350,110,I+10,220,I+10,440,I+10)
2000 CALL COLOR(15,11,11)
2010 FOR G=1 TO 15
2020 NEXT G
2030 NEXT I
2040 FOR I=1 TO 1000
2050 NEXT I
2060 CALL COLOR(15,5,11)
2070 CALL COLOR(11,7,11)
2080 VITE=VITE-1
2090 CALL COLOR(16,2,11)
2100 IF VITE=0 THEN 2330 ELSE 870
2110 PUNTI=PUNTI+10
2120 BOOM=BOOM+1
2130 FOR I=1 TO LEN(STR$(PUNTI))
2140 CALL HCHAR(5,25+I,ASC(SEG$(STR$(PUNTI),I,1)))
2150 CALL SOUND(-300,200,I,1000,I)
2160 NEXT I
2170 IF BOOM=RIGHETTO THEN 2190
2180 GOTO 1400
2190 RESTORE 2940
2200 FOR I=1 TO 60
2210 READ A
2220 CALL SOUND(-150,A,2)
2230 NEXT I
2240 CALL SOUND(-600,262,2,330,2,392,2)
2250 CALL HCHAR(NI,TI,42)
2260 SCHERMI=SCHERMI+1
2270 NINETTO=NINETTO+2
2280 FOR I=1 TO 1000
2290 NEXT I
2300 CALL COLOR(11,7,11)
2310 CALL COLOR(16,2,11)
2320 GOTO 870
2330 FOR I=1 TO 5
2340 CALL SOUND(100,110,2)
2350 CALL SOUND(100,220,2)
2360 CALL SOUND(100,440,2)
2370 CALL SOUND(100,880,2)
2380 NEXT I
2390 FOR I=1 TO 8
2400 CALL HCHAR(13+I,3,32,21)
2410 NEXT I
2420 A$="GAME OVER"
2430 FOR I=1 TO LEN(A$)
2440 CALL HCHAR(17,8+I,ASC(SEG$(A$,I,1)))
2450 CALL SOUND(-200,-4,1)
2460 NEXT I
2470 FOR I=1 TO 800
2480 NEXT I
2490 CALL CLEAR
2500 IF PUNTI>M THEN 2510 ELSE 110
2510 CALL SOUND(1000,262,20,392,20)
2520 CALL CLEAR
2530 M=PUNTI
2540 PRINT "SEI MORTO NEL";SCHERMI;"LIVELLO!!!": :"MA HAI COMUNQUE REALIZZATO": :"UN NUOVO PUNTEGGIO MASSIMO": :
2550 PRINT "PUNTI ";PUNTI: :"ORA SOTTO LA SIGLA MAX S<MAX": :"SCORE> CI SARA' IL TUO SCORE": : : : : : :
2560 FOR I=110 TO 1000 STEP 100
2570 CALL SOUND(100,I,2)
2580 CALL SOUND(100,I+50,10)
2590 CALL SOUND(100,I+100,20)
2600 NEXT I
2610 FOR I=1 TO 1000
2620 NEXT I
2630 CALL CLEAR
2640 CALL SCREEN(11)
2650 GOTO 110
2660 A=-1
2670 RESTORE 2790
2680 B=13
2690 CALL CLEAR
2700 A=A+2
2710 READ A$
2720 IF A$="CIAO" THEN 2910
2730 FOR I=1 TO LEN(A$)
2740 CALL HCHAR(A,B+I,ASC(SEG$(A$,I,1)))
2750 CALL SOUND(-150,-4,15)
2760 NEXT I
2770 B=2
2780 IF A=23 THEN 2860 ELSE 2700
2790 DATA SISTEC,,QUESTO GIOCO OLTRE AD AVERE,UNA DISCRETA GRAFICA E NOTE_,VOLI QUALITA' SONORE E'MOLTO
2800 DATA DIVERTENTE E NEL CONTEMPO VI,AIUTA A STIMOLARE LA MEMORIA,IN QUANTO LO SCOPO DEL GIOCO
2810 DATA E'DI PRENDERE COL VOSTRO "",TUTTI I SEMI "p" EVITANDO LE,BUCHE "",
2820 DATA LA DIFFICOLTA'E'NEL RICORDAR,LA POSIZIONE DEI SEMI E DELLE,BUCHE,IN CASO DI NECESSITA' POTETE
2830 DATA PER TRE VOLTE PREMERE "ENTER",COSI' RIVEDRETE LA POSIZIONE,DEGLI OGGETTI,,,,,,,PER GIOCARE USA,
2840 DATA < ENTER >ppppCOLOR,EppppppppppppALTO,XppppppppppppBASSO,DppppppppppppDESTRA,SppppppppppppSINISTRA,
2850 DATA CHE DIO TE LA MANDI BUONA!!!,CIAO
2860 FOR I=1 TO 500
2870 NEXT I
2880 CALL CLEAR
2890 A=-1
2900 GOTO 2700
2910 FOR I=1 TO 2000
2920 NEXT I
2930 GOTO 810
2940 DATA 247,294,392,247,294,392,262,330,392,262,330,392,294,370,440,294,370,440,330,392,494,330,392,494,349
2950 DATA 440,523,349,440,523,392,494,587,392,494,587,349,440,523,349,440,523,330,392,494,330,392,494,294,370
2960 DATA 440,294,370,440,262,330,392,262,330,392
2970 DATA 440,494,523,440,494,523,392,440,494,392,440,494,349,392,440,349,392,440,330,349,392,330,349,392,440
2980 DATA 494,523,440,494,523,392,440,494,392,440,494,349,392,440,349,392,440,330,349,392,330,349,392,294,330
2990 DATA 349,294,330,349,262,294,330,262,294,330
3000 PRINT "yyyyyyyyyyyyyyyyyyyyy  LIFESy*******************y       y*yy*yy*yyy*y*y*y*y*y ";VITE
3010 PRINT "y*y*****y*****y*****y       y***yyy***yyy***yyy*y       y*y*y***y*y***y*****y  COLOR"
3020 PRINT "y*y***y*y***y*y*y*y*y       y***yyy***y*********y  X X Xyyyyyyyyyyyyyyyyyyyyy       "
3030 PRINT "yyyyyyyyyyyyyyyyyyyyy       yyyyyyyyyyyyyyyyyyyyy       "
3040 GOTO 1090
3050 PRINT "yyyyyyyyyyyyyyyyyyyyy  LIFESycdcdcdcd***cdcdcdcdy       y*******************y ";VITE
3060 PRINT "y*******************y       y*********e*********y       y*******************y  COLOR"
3070 PRINT "y*******************y       yabababab***ababababy  X X Xyyyyyyyyyyyyyyyyyyyyy       "
3080 PRINT "yyyyyyyyyyyyyyyyyyyyy       yyyyyyyyyyyyyyyyyyyyy       "
3090 GOTO 1090
